* lib-src/etags.c (Fortran_functions): Handle "elemental" functions.

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index af026b6ba2c5fe2647e57d96af3d2df55c5564c0..984c4d6c880a71a9c3458cf1df7af99ac519c45d 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-07  Glenn Morris  <rgm@gnu.org>
+
+       * etags.c (Fortran_functions): Handle "elemental" functions.
+
 2011-09-07  Dieter Schuster  <didischuster@arcor.de>  (tiny change)
 
        * etags.c (Fortran_functions): Handle "pure" functions.  (Bug#9359)

diff --git a/lib-src/etags.c b/lib-src/etags.c
index 0197bbd49cc3c2fe7ff18525412ea27230d879ae..ac5ebee9b0766d05fae3e3d264028550a7d46667 100644 (file)
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4051,6 +4051,9 @@ Fortran_functions (FILE *inf)
       if (LOOKING_AT_NOCASE (dbp, "pure"))
        dbp = skip_spaces (dbp);
 
+      if (LOOKING_AT_NOCASE (dbp, "elemental"))
+       dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
        {
        case 'i':